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-- KeyStreams.Mesa Edited by Johnsson on September 22, 1977 8:23 AM 

DIRECTORY 

Keyboard: FROM "keyboard", 
KeyDefs: FROM "keydefs", 
Mopcodes: FROM "mopcodes", 
StreamDefs: FROM "streamdef s" , 
SystemDefs: FROM "systemdef s" , 
InlineDefs: FROM " in! inedef s" , 
ControlDefs: FROM "controldefs" , 
ProcessDefs: FROM "processdefs" ; 

DEFINITIONS FROM ProcessDefs, InlineDefs, KeyDefs, StreamDefs; 

KeyStreams: PROGRAM IMPORTS Keyboard, ProcessDefs, StreamDefs, SystemDefs 
EXPORTS KeyDefs, StreamDefs SHARES ProcessDefs, StreamDefs = 

BEGIN 

-- The Stream part: 

KS: PUBLIC Keyboard StreamObject *- StreamObject [ 
ClearlnputBuffer, Keyboard . ReadChar , PutBackChar, 
WriteChar, Keyboard . InputBuf f erEmpty , DestroyKey, 
Keyboard[0,0, ,]]; 

GetDefaultKey: PUBLIC PROCEDURE RETURNS [KeyboardHandle] = 
BEGIN 

RETURN[@KS]; 
END; 

GetCurrentKey: PUBLIC PROCEDURE RETURNS [KeyboardHandle] = 
BEGIN 

RETURN[Keyboard.ks]; 
END; 

CreateKeyStream; PUBLIC PROCEDURE RETURNS [KeyboardHandle] = 
BEGIN OPEN SystemDefs; 
s: KeyboardHandle <- 

SystemDefs.Al 1 oca teHeapNode[S I ZE[ Keyboard StreamObject]]; 
St «- KS; 

s. buffer ♦• LOOPHOLE[BASE[s. bstring] .STRING] ; 
s. in «- s . out «• 0; 
RETURN[s]; 
END; 

ControlDELtyped: PUBLIC PROCEDURE RETURNS [BOOLEAN] = 
BEGIN RETURN[Keyboard.CDT] END; 

ResetControlDEL: PUBLIC PROCEDURE = 
BEGIN Keyboard. CDT ♦- FALSE END; 

OpenKeyStream: PUBLIC PROCEDURE [stream: StreamHandle] = 
BEGIN 
WITH s:stream SELECT FROM 

Keyboard => Keyboard. ks <- @s; 

ENDCASE => SIGNAL StreamError[s tream, StreamType] ; 
RETURN; 
END; 

ClearlnputBuffer: PROCEDURE [stream:StreamHandl e] = 
BEGIN 
WITH s: stream SELECT FROM 

Keyboard => s.in «- s.out «- 0; 

rNDCAST = > SIGNAL SLreamError[s tream, StreamType] ; 
RETURN; 
END; 

SetldleProc: PUBl IC PROCEDURE [p: PROCEDURE] = 
BEGIN Keyboard. IdleProc *- p END; 

ResetldleProc: PUBl IC PROCEDURE = 

BEGIN Keyboard. IdleProc - tOOPHOIE[0] END; 

PutBackChar: PROCEDURE [s Ireanr.S IreamHandle . char : UNSPECI EIED] = 
BEGIN newout: CARDINAl ; 
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WITH s:stream SELECT FROM 
Keyboard => 
BEGIN 

newout «• s.out; 
newout «• 

IF newout s 

THEN KeyBufChars-1 
ELSE newout-1; 
IF newout # s , in THEN 
BEGIN 

s.out «- newout; 
s.buffer[s.out] «- char; 
END; 
END; 
ENDCASE => SIGNAL StreamError[stream, StreamType] ; 
RETURN; 
END; 

WriteChar: PROCEDURE [stream:StreamHandle, char :UNSPECIFIED] 
BEGIN 

SIGNAL Stream£rror[stream,StreamAccess] ; 
RETURN 
END; 

CloseKeyStream: PUBLIC PROCEDURE [streamtStreamHandle] = 
BEGIN 
WITH s:stream SELECT FROM 

Keyboard => Keyboard. ks *• QKS; 

ENDCASE => SIGNAL StreamError[stream, StreamType] ; 
RETURN; 
END; 

DestroyKey: PROCEDURE [stream:StreamHandle] = 
BEGIN OPEN SystemOefs; 
WITH sistream SELECT FROM 

Keyboard => FreeHeapNode[Qs] ; 

ENDCASE => SIGNAL StreamError[stream, StreamType] ; 
RETURN; 
END; 

CursorTrack: PUBLIC PROCEDURE [b: BOOLEAN] * 
BEGIN 

Keyboard . cursorTracking «- b; 
RETURN 
END; 



KeyTable: ARRAY [0. .80 
— MCMORY[177033B] 

KeyItem[FALSE, 0, 0] 

KeyItem[FALSE, 0, 0] 

KeyItem[FALSE, 0, 0] 

KeyItem[FALSE, 0, 0] 

KeyItem[FALSE, 0, 0] 

KeyItem[FALSE, 0, 0] 

KeyItem[FALSE, 0, 0] 

KeyItem[FALSE. 0, 0] 

KeyItem[FALSE, 0, 0] 

KeyIlem[FALSE, 0, 0] 

KeyIlem[FAISF, 0, 0] 

KeyItem[rALSE, 0, 0] 

KeyTtemfrALSE, 0, 0] 

KeyItem[FALSE, 0, 0] 

KeyItem[FAI SE, 0, 0] 

KeyTtem[rAlsr, 0, 0] 
-- MFMORY[177034B] 

KeyILem[rAI SE, 45B, 

KeyT tem[FAI ST, 44B, 

KeyItem[rAISC, 176B, 

KeyTtem[TRUE. 105B. 
KeylteinfrAI ST. 
KeyTLem[TRUr, 
KeyItem[TRUr, 
KeyTlem[TRUF. 
KeyTLem[rALSF, 



) OF Keyltem <- [ 
Index [0. .15] 

UNUSED 

UNUSED 

UNUSED 

UNUSED 

UNUSED 

UNUSED 

UNUSED 

UNUSED 

Keyltemsetl 

Key I temset2 

Keyl Lemset3 

Key I temset4 

Keyl Lemset5 

Red 

Blue 

Yellow 
Index [16. .31] 



46B, 
I04B. 
125B. 
126B, 

51B. 



65B] 

64B] 

66B] 

145B] 

67B] 

144B] 

165B] 

166B] 

60B] 
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KeyItem[TRUE, 1138 

KeyItem[FALSE, 30B 

KeyItem[TRUE, 120B 

KeyItem[FALSE, 77B 

KeyItem[FALSE, 1748 

KeyItem[FALSE, 12B 

KeyItem[FALSE, 10B 

— MEMORY[177035B] 
KeyItem[FALSE, 438 
KeyItem[FALSE, 1008 
KeyItem[TRUE, 127B 
KeyItem[TRUE, 121B 
KeyItem[TRUE, 123B 
KeyItem[TRUE, 1018 
KeyItem[FALSE, SOB 
KeyItem[TRUE, 111B 
KeyItem[TRUE, 130B 
KeyItem[TRUE, 117B 
KeyItem[TRUE, 114B 
KeyItem[FALSE, 74B 
KeyItem[FALSE, 42B 
KeyItem[FALSE, 175B 
KeyItem[FALSE, OB 
KeyItem[FALSE, OB 
-- MEMORY[177036B] 
KeyItem[FALSE, 418 
KeyItem[FALSE, 338 
KeyItem[FALSE, 11B 
KeyItem[TRUE, 106B 
KeyItem[FALSE, OB 
KeyItem[TRUE, 1038 
KeyItem[TRUE, 112B 
KeyItem[TRUE, 102B 
KeyItem[TRUE, 132B 
KeyItem[FALSE, OB 
KeyItem[FALSE, 768 
KeyItem[FALSE, 72B 
KeyItem[FALSE, 15B 
KeyItem[FALSE, 1368 
KeyItem[FALSE, 177B 
KeyItem[FALSE, OB 

— MEMORY[177037B] 
KeyItem[TRUE, 122B, 
KeyItem[TRUE, 124B, 
KeyItem[TRUE, 107B, 
KeyItem[TRUE, 131B, 
KeyItem[TRUE, HOB, 
KeyItem[FALSE, 52B, 
KeyItem[TRUE, 116B, 
KeyItem[TRUE, 115B, 
KeyItem[FALSE, OB, 
KeyItem[FALSE, 40B, 
KeyItem[rALSE. 173B, 
KeyItem[FALSE, 53B, 
KeyItem[FALSE. OB, 
KeyUem[FALSE, OB, 
KeyItem[FALSE, OB, 
KeyltemJTALSE, OB, 



153B], 
65B], 

1608], 

57B], 

134B], 

12B], 

10B], 

Index 

638], 

62B], 

167B], 

1618], 

163B], 

141B], 

71B], 

151B], 

170B], 

157B], 

154B], 

54B], 

478], 

1358], 

OB], 

OB], 

Index 

61B], 

33B], 

HB], 

146B], 

, OB], 

143B], 

152B], 

1428], 

172B], 

. OB], 

56B], 

73B], 

15B], 

1378] , 

177B], 

, OB], 

Index 

162B], 

164B], 

147B], 

171B], 

150B], 

70B], 

156B], 

155B], 

OB], 

40B], 

133B], 

75B], 

08], 

OB], 

OB], 

OB]]; 



— P 

— ?,/ 

— |.\ 
-- LF 

— BS 
[32. .47] 

-- #,3 

-- Q,2 

-- W 

-- Q 

-- s 

-- A 

— (,9 
-- I 
-- X 

— 

— L 
-- <,, 

i 

" }.3 

— SPARE2 

— SPARE1 
[48. .63] 

— 1,1 

-- ESCAPE 

-- TAB 

-- F 

-- CONTROL 

— C 

— J 

— B 

— Z 

-- SHIFT 

-- >, . 

-- cr' 

-- t,f 

— DEL 

-- NOT USED (FL3) 
[64. .79] 

— R 

— T 

— G 
-- Y 

— H 

— *,8 
-- N 
-- M 

-- LOCK 

— SPACE 

" {•[ 

-- +, = 

-- SHIFT 

-- SPARE3 

— NOT USED (FL4) 
-- NOT USED (FR5) 



ChangeKey: PUBLIC PROCEDURE [key: KeyName, action: Keyltem] RETURNS [oldAction: Keyltem] 
BEGIN 

oldAction ♦• KeyTab 1 e[l OOPHOLE[key , CARDINAL]] ; 
KeyTable[lOOPHOLE[key, CARDINAL]] «- action; 
RETURN 
END; 



-- The Process (and initialization) part 

-- Process constants for keyboard 
KeyboardBi t: WORD = 4; 
Process: PUB! IC ProcessHanclle : 
KeyboardPr lor i ty : ProcessPr ior i Ly = 2; 
DisplaylnterruptWord: POINTER TO WORD = L OOPIIOLE[42 IB] ; 
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START Keyboard; 

ResetId1eProc[]; 

ResetContro1DEL[]; 

CursorTrack[TRUE]; 

Keyboard .KeyTable «- QKeyTable; 

Keyboard. ks ♦■ @KS; 

KS. buffer «- L00PH0LE[BASE[KS.bstr1ng], STRING]; 

KS.bstring[0] <- KS.bstring[l] ♦- KeyBufChars; 

Process <- ProcessDef s .CreateProcessFromProcedure[ 

Keyboard. ProcessKey board , KeyboardPriority] ; 
Act ivate Process [Process] ; 
DisplaylnterruptWordt «- BIT0R[Disp1ayInterruptWordt, Key boar dBit] ; 

END. 



